home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1995 May / cd Ware (Juegos) Epimundo.iso / DOS / PRGMMING / M2PROTOS.ZIP / QCXM.DEF < prev    next >
Encoding:
Modula Definition  |  1991-02-09  |  895 b   |  35 lines
  1. (*# call(o_a_copy => off) *)
  2. (*%T _fcall *)
  3. (*# call(seg_name => QCxm) *)
  4. (*%E *)
  5. (*%F _fcall *)
  6. (*# call(seg_name => null) *)
  7. (*%E *)
  8. (*# module(implementation=>on) *)
  9. (*# data(seg_name => null) *)
  10. DEFINITION MODULE QCxm;
  11.  
  12.                      (* This JPI Modula-2 module is part of *)
  13.  
  14.                       (* QC -- a communications program *)
  15.                              (* by Carl Neiburger *)
  16.                               (* 169 N. 25th St.*)
  17.                           (* San Jose, Calif. 95116 *)
  18.  
  19.                          (* CompuServe No. 72336,2257 *)
  20.  
  21. FROM PathFind IMPORT FilePtr;
  22. FROM FioAsm IMPORT PathStr;
  23. FROM QCxmzero IMPORT ProtoSet;
  24. FROM QCcomm IMPORT XModem, XModem1K;
  25.  
  26. CONST
  27.     SimpleXmProtos = ProtoSet{XModem, XModem1K};
  28.  
  29. PROCEDURE ReceiveXmodem( FilePath, FileName : PathStr );
  30.  
  31. PROCEDURE SendXmodem( ThisFile: FilePtr );
  32.  
  33. END QCxm.
  34.  
  35.